﻿Imports CrystalDecisions.Shared

Public Class frmVisorBusGFecha
    Dim idDV As New ParameterDiscreteValue
    Public fecidPago As String
    Private Sub frmVisorBusGFecha_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Dim rptbus As New rptBusPagoGFecha
        idDV.Value = fecidPago

        rptbus.DataSourceConnections(0).SetConnection("Driver={MySQL ODBC 5.2a Driver};Server=localhost;Port=3306;", "bdCoprevi", "root", "123456")
        'CTM QUE ME COSTÓ ENCONTRAR EL STRING DE CONEXION
        rptbus.SetParameterValue("f1", idDV)


        crvBusqueda.ReportSource = rptbus
    End Sub

End Class